//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ctest.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfTest *fTest;
//---------------------------------------------------------------------------
__fastcall TfTest::TfTest(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfTest::Button1Click(TObject *Sender)
{
	TfFormBase *formTest;

	try{
		formTest = new TfFormBase(NULL);

		if(formTest != NULL){
				formTest->ShowModal();
		}
	}__finally{
			if(formTest != NULL){
					delete formTest;
			}
  }
}
//---------------------------------------------------------------------------
